Attribute VB_Name = "ModMain"
'=============DLL init================
Function DLLMain(ByVal hinstDLL As Long, ByVal fdwReason As Long, ByVal lpvReserved As Long) As Long
    DLLMain = 1
End Function
Sub Main()
End Sub
'==============OVER================

Public Function DwmIsCompositionEnabled(ByRef enabledptr As Long) As Long
enabledptr = 1
DwmIsCompositionEnabled = 1
End Function
Public Function DwmEnableBlurBehindWindow(ByVal hWnd As Long, ByRef Rgn As DWM_BLURBEHIND) As Long
DwmEnableBlurBehindWindow = 1
End Function
Public Function DwmExtendFrameIntoClientArea(ByVal hWnd As Long, margin As MARGINS) As Long
DwmExtendFrameIntoClientArea = 1
End Function
Public Function DwmDefWindowProc(ByVal hWnd As Long, ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long, LRESULT As Long) As Long
DwmDefWindowProc = 1
End Function


